home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / S-Sound and Music / (c)se.d64 / bell.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  143b  |  9 lines
  1. 5300 REM BELL
  2. 5310 S=54272
  3. 5320 FOR L=0 TO 24:POKE S+L,0:NEXT
  4. 5330 POKE S+1,130:POKE S+5,9
  5. 5340 POKE S+15,30:POKE S+24,15
  6. 5362 POKE S+4,21
  7. 5364 FOR T=1 TO 1000:NEXT
  8. 5366 POKE S+4,20
  9.